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VisualBasic does I/O 



Jon Titus, Test t measurement World, Newton, MA 

Microsoft's VisualBasic — which runs under Win- 
dows — cannot operate on a PC's I/O ports. How- 
ever, you can add dynamic-link libraries (DLLs) to 
extend the keywords of native VisualBasic (List- 
ing 1). The compiled code, listings, and documentation in 
ZIPfile DI1167Z.ZIP (attached to EDN BBS /DI_SIG #1367) 
let you perform I/O operations using the new keywords Inp 
and Out. These added keywords operate the same way these 
keywords do in other Basic dialects. 

To use Inp and Out in VisualBasic, you must tell your pro- 
gram that these operations exist. Use the Declare state- 
ments, as Listing 2 shows. Remember that the Out operation 
is a subroutine because it simply outputs a byte; it returns 
nothing back to your VisualBasic program. The Inp operation 
is a function, because it returns a byte from an input port. 
You use the ByVal keyword to tell VisualBasic that you want 
it to transfer the actual value, and not a reference or pointer 
to the value. 

In addition, you must explicitly tell VisualBasic where to 
find the library functions in your DLL. This example 
assumes the DLL is on a floppy disk in the B drive. You can 
put the DLL on another drive, but be sure to tell VisualBa- 
sic where it is. 

Simple VisualBasic program fragments show how to use 
the Inp and Out instructions. For example, Out 771, 130 sends 
the value 130 to output port 771 of my PC. On the other hand, 
A=Inp(769) assigns the byte at input port 769 to variable A. 
The syntax is exactly the same as in most other Basics. 
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Listing 1— C++ source code for DLL 
(Borland C++ compiler) 


include <d : \borlandc\include\windows . h> 
^include <d : \borlandc\include\dos . h> 

extern "C" { 

int FAR PASCAL _export Test (int) ; 
void FAR PASCAL ^export Out {Int, Int) i 
int PAR PASCAL export Inp (int) ; 

int FAR PASCAL LibMain (HANDLE hlnstance, WORD wDataSeg. 
WORD wHeapSize, LPSTR lpCmdLine) 

( 

hlnstance « hlnstance ,- 
wDataSeg - wDataSeg; 
wHeapSize - wHeapSize ,- 
IpCmdLine = lpCmdLine; 

if (wHeapSize > 0) 

UnlockData (0) ,- 
return 1 ; 

} 

int FAR PASCAL export Teat (int argl) 


{ 


return (argl + 1) ; 


void FAR PASCAL _export Out (int portaddr, int portdata) 


unsigned char data; 

outportb (portaddr, portdata) ; 


) 

int PAR PASCAL _export Inp (int portaddr) 
int portdata; 

portdata - inportb (portaddr) ; 
return (portdata) ; 


Listing 2 — VisualBasic location declarations 

Declare Function Test Lib "b:\cuser2.dll" {ByVal Humb%) As Integer 
Declare Sub Out Lib "b:\cuser2.dll" (ByVal Addr*, ByVal Byte*) 
Declare Function Inp Lib -b:\cuser2.dll" (ByVal Addr%) As Integer 


Motor-drive algorithm saves space and cycles 


Jose A P Mochado da Silva, University of Porto, Porto, Portugal 


The algorithm embodied in the second subroutine in Listing 1 
generates the excitation sequence for most permanent-mag- 
net and hybrid stepper motors. This subroutine is smaller 
than subroutines that spring from other algorithms. 

To understand the algorithm, first consider that stepper 
motors have two stator coils, A and B, each having a center 
tap. Phase notation (A,A,B, and B) shows the direction of the 
current flow. That is, AA=10 2 symbolizes that current flows 
through half-coil A and that half-coil A is off. 

To get the maximum torque from a stepper motor, you 
must drive two phases at a time. Using the binary notation 
developed in the preceding paragraph, the 4-phase drive 
sequence for all four half coils is 0101 2 , 0110 2 , 10 1 2 , 1001 2 or 

f> R A Q 
HEX' HEX' HEX' "'HEX - 


Listing 1 — Stepper-motor drive subroutines 


Begin 
New 


MOV Rr , curraddress 

MOV Outpur,» Rr 
INC Rr 

CJNE Rr,«lastaddress*l,l 


JNZ New 

MOV curraddress, Rr 


More 
End 

Accumulator Rotating 

Begin MOV A.currstate 

Next MOV Output, A 

RL A 

RL A 


byte b /cycles 

a/a 
a/a 

ire 3/2 

a/a 

2/2 


2/1 
1/1 
1/1 

2/2 
2/1 


Load adr reg w/current 

table address 
Send drive sig to output 
Increment adr reg 
Rel-cond jump to More 
Delay 

End of motion? 


Load A w/current drive 
bytee 

Send drive sig to output 
Rotate A left twice 


Delay 

End of motion? 
Save drive bytes 
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